home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / KEYSET.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  2.0 KB  |  35 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 12  '***************** PROGRAMMERS BASIC F-KEY SETTINGS  ***********************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN            PROGRAMMERS FUNCTION KEY SETTING COMBINATION                 OPEN
  5. 20  'OPEN  F1: CLS -- CLEARS THE SCREEN      F2: RUNS RESIDENT PROGRAM            OPEN
  6. 22  'OPEN  F3: CLEARS SCREEN, LISTS PROGRAM  F4: SETS UP LOAD FROM DRIVE A:       OPEN
  7. 24  'OPEN  F5: SETS UP LOAD FROM DRIVE B:    F6: CLEARS & LISTS SPECIFIED LINES   OPEN
  8. 26  'OPEN  F7: READS DIRECTORY IN DRIVE A:   F8: READS DIRECTORY IN DRIVE B:      OPEN
  9. 28  'OPEN  F9: SETS UP SAVE TO DRIVE B:      F10: STEPS THRU LISTING.  JUST PUT   OPEN
  10. 30  'OPEN                                         IN NEXT NUMBER.  OLD WILL SHOW. OPEN
  11. 31  'OPEN                    (c) G I N A C O  1983           Ver 5.2/160/320      OPEN
  12. 32  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  13. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  14. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  15. 60  REM
  16. 100  SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  17. 110  KEY 1,"CLS" + CHR$(13)   'CLEARS SCREEN
  18. 120  KEY 2,"RUN" + CHR$(13)   'RUNS RESIDENT PROGRAM
  19. 130  KEY 3,"CLS:LIST" + CHR$(13) 'CLEARS SCREEM AND LISTS RESIDENT PROGRAM
  20. 140  KEY 4,"LOAD" + CHR$(34) + "A" + CHR$(58) 'SETS UP LOAD FROM A:
  21. 150  KEY 5,"LOAD" + CHR$(34) + "B" + CHR$(58) 'SETS UP LOAD FROM B:
  22. 160  KEY 6,"CLS:LIST " 'CLEARS SCREEN AND LISTS DESIGNATED LINES
  23. 170  KEY 7,"FILES" + CHR$(13) ' LISTS DIRECTORY OF DRIVE A:
  24. 180  KEY 8,"FILES" + CHR$(34) + "B" + CHR$(58) + "*.*" + CHR$(13) ' DIR OF B:
  25. 190  KEY 9,"SAVE" + CHR$(34) + "A" + CHR$(58)                    ' SAVE ON A:
  26. 200  KEY 10,"LIST . -"  'STEP THRU A LISTING -- ENTER NEW LINE OLD WILL SHOW
  27. 210  KEY ON
  28. 220  CLS
  29. 230   KEY LIST
  30. 240  PRINT
  31. 250   FILES
  32. 260  END
  33. 65000  '*********************** SAVE ROUTINE **********************************
  34. 65100  SAVE"B:KEYSET.BAS"
  35.